home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…tion Library 2 (Reseller) / Apple R&P Lib Reseller v2.0.iso / 3-Demos / Third Party Demos / Networking / MacMainFrame / card_24630.txt < prev    next >
Text File  |  1989-07-14  |  3KB  |  160 lines
  1. -- card: 24630 from stack: in
  2. -- bmap block id: 25554
  3. -- flags: 4000
  4. -- background id: 2776
  5. -- name: download card
  6. ----- HyperTalk script -----
  7. on openCard
  8.   set userLevel to 3
  9.   choose select tool
  10.   click at 278,150
  11.   drag from 278,150 to 305,173
  12.   set dragSpeed to 350
  13.   drag from 305,173 to 305,187
  14.   wait 1 seconds
  15.   drag from 305,187 to 305,203
  16.   wait 2 seconds
  17.   put "75" into char 1 of card field id 3
  18.   put "75" into char 1 of card field id 4
  19.   set dragSpeed to 400
  20.   drag from 305,203 to 305,220
  21.   add 105 to card field id 3
  22.   add 105 to card field id 4
  23.   wait 1 seconds
  24.   add 85 to card field id 3
  25.   add 85 to card field id 4
  26.   wait 1 seconds
  27.   add 65 to card field id 3
  28.   add 65 to card field id 4
  29.   wait 30 ticks
  30.   add 105 to card field id 3
  31.   add 105 to card field id 4
  32.   drag from 305,220 to 305,267
  33.   add 25 to card field id 3
  34.   add 25 to card field id 4
  35.   wait 1 seconds
  36.   add 25 to card field id 3
  37.   add 25 to card field id 4
  38.   drag from 305,267 to 305,285
  39.   wait 20 ticks
  40.   show card field id 5
  41.   choose browse tool
  42. end openCard
  43.  
  44.  
  45.  
  46. -- part 1 (button)
  47. -- low flags: 00
  48. -- high flags: 0002
  49. -- rect: left=469 top=309 right=337 bottom=506
  50. -- title width / last selected line: 0
  51. -- icon id / first selected line: 1012 / 1012
  52. -- text alignment: 1
  53. -- font id: 0
  54. -- text size: 12
  55. -- style flags: 0
  56. -- line height: 16
  57. -- part name: Return
  58. ----- HyperTalk script -----
  59. on mouseUp
  60.   choose select tool
  61.   click at 260,260
  62.   drag from 260,260 to 305,285
  63.   set dragSpeed to 0
  64.   drag from 305,285 to 305,173
  65.   choose browse tool
  66.   hide card field id 5
  67.   subtract 485 from card field id 3
  68.   subtract 485 from card field id 4
  69.   set userLevel to 1
  70.   visual effect scroll left
  71.   pop card
  72. end mouseUp
  73.  
  74.  
  75.  
  76. -- part 2 (button)
  77. -- low flags: 00
  78. -- high flags: 0002
  79. -- rect: left=7 top=308 right=336 bottom=45
  80. -- title width / last selected line: 0
  81. -- icon id / first selected line: 30557 / 30557
  82. -- text alignment: 1
  83. -- font id: 0
  84. -- text size: 12
  85. -- style flags: 0
  86. -- line height: 16
  87. -- part name: First
  88. ----- HyperTalk script -----
  89. on mouseUp
  90.   choose select tool
  91.   click at 260,260
  92.   drag from 260,260 to 305,285
  93.   set dragSpeed to 0
  94.   drag from 305,285 to 305,173
  95.   choose browse tool
  96.   hide card field id 5
  97.   subtract 485 from card field id 3
  98.   subtract 485 from card field id 4
  99.   set userLevel to 1
  100.   visual effect scroll right
  101.   push card
  102.   show menuBar
  103.   go to card id 9514
  104. end mouseUp
  105.  
  106.  
  107.  
  108. -- part 3 (field)
  109. -- low flags: 01
  110. -- high flags: 0000
  111. -- rect: left=163 top=169 right=185 bottom=220
  112. -- title width / last selected line: 0
  113. -- icon id / first selected line: 0 / 0
  114. -- text alignment: 0
  115. -- font id: 21
  116. -- text size: 12
  117. -- style flags: 0
  118. -- line height: 16
  119. -- part name: 
  120.  
  121.  
  122. -- part 4 (field)
  123. -- low flags: 01
  124. -- high flags: 0000
  125. -- rect: left=163 top=189 right=205 bottom=214
  126. -- title width / last selected line: 0
  127. -- icon id / first selected line: 0 / 0
  128. -- text alignment: 0
  129. -- font id: 21
  130. -- text size: 12
  131. -- style flags: 0
  132. -- line height: 16
  133. -- part name: 
  134.  
  135.  
  136. -- part 5 (field)
  137. -- low flags: 81
  138. -- high flags: 0001
  139. -- rect: left=162 top=252 right=273 bottom=180
  140. -- title width / last selected line: 0
  141. -- icon id / first selected line: 0 / 0
  142. -- text alignment: 0
  143. -- font id: 3
  144. -- text size: 12
  145. -- style flags: 0
  146. -- line height: 16
  147. -- part name: 
  148.  
  149.  
  150. -- part contents for card part 3
  151. ----- text -----
  152. 0
  153.  
  154. -- part contents for card part 4
  155. ----- text -----
  156. 0
  157.  
  158. -- part contents for card part 5
  159. ----- text -----
  160. 1